#!/usr/bin/perl

use warnings;
use strict;

my @strings = (
    "An apple a day keeps the doctor away",
    "Procratination is the thief of time",
    "The early bird catches the worm",
    "Handsome is as handsome does",
    "Too many cooks spoil the broth"
);

print "$strings[rand(5)]\n";
